5 IFPEEK(51200)<>76ORPEEK(52016)<>32THEN7
6 IFPEEK(52080)=173ANDPEEK(52176)=169THEN8
7 LOAD"ROUTINES V4",8,1
8 POKEV+33,1:Q$=CHR$(34)
10 R=53265:C=128:V=53248:S=V+1024:LI=52016:WI=51200:CL=51203:SU=51206:SD=51209
12 POKES+23,.:POKES+4,128:POKEV+32,14
15 GOSUB 1000:PRINT"   [215]ELCOME TO THE FIRST INSTALLMENT OF"
16 PRINT"[204]OADSTAR'S [195][207][205][193][204][160]0.14 [212]UTORIAL.  [212]HIS
17 [153]"SERIES OF ARTICLES ASSUMES NO KNOW-
18 PRINT"LEDGE OF PROGRAMMING ON YOUR PART.
19 [153]"RIGHT$NDEED, THE PURPOSE IS TO TEACH LEN(null)(null)ATN(null)
20 PRINT"PROGRAMMING FROM THE BEGINNING,
21 [153]"WITHOUT THE 'CORRUPTING' INFLUENCES OF
22 PRINT"[194][193][211][201][195].
23 [153]"   RIGHT$ WILL NOT GO INTO THE RELATIVE
24 PRINT"PROS & CONS OF [194][193][211][201][195][160]AND [195][207][205][193][204], JUST
25 [153]"SUFFICE IT TO SAY THAT LEN(null)(null)ATN(null)CLOSEIS
26 PRINT"SUPERIOR TO [194][193][211][201][195] AS A LANGUAGE FOR
27 [153]"FIRST TIME PROGRAMMERS.  RIGHT$T IS SIMILAR
28 PRINT"IN STRUCTURE TO THE MORE 'SERIOUS'
29 [153]"LANGUAGES ((null)ASCAL, (null)ODULA 2, ETC.).
30 S%=-1:GOSUB1200
31 PRINT"   [211]INCE [195][207][205][193][204] 0.14, UNLIKE [194][193][211][201][195], IS
32 [153]"NOT BUILT INTO THE 64; YOU MUST (null)(null)ATNSTR$
33 PRINT"IT INTO THE 64'S 'MEMORY'[160](OR [210][193][205]) BE-
34 [153]"FORE YOU CAN USE IT.  (null)O DO SO, YOU
35 PRINT"MUST HAVE A COPY OF THE [195][207][205][193][204][160]0.14
36 [153]"(null)AMPLER STR$ISK.  ((null)EE THE LEN(null)(null)ATN(null)CLOSELENORNER
37 PRINT"ABOUT [204]OADSTAR'S OWN SPECIAL [195][207][205][193][204]
38 [153]"OFFER!)  (null)IMPLY TURN YOUR COMPUTER
39 PRINT"SYSTEM ON, WAIT FOR THE [194][193][211][201][195] STARTUP
40 [153]"SCREEN TO APPEAR, THEN INSERT YOUR
41 PRINT"[195][207][205][193][204][160]0.14 [211]AMPLER [196]ISK INTO THE DISK
42 [153]"DRIVE AND CLOSE THE DISK DRIVE DOOR.
43 PRINT"[215]HEN ALL IS READY, JUST DO THE FOL-
44 [153]"LOWING  (BUT (null)(null)(null)CLOSE(null)(null)(null)!!!!):
50 GOSUB1200
51 PRINT"[212]YPE THE FOLLOWING LINE TO BOOT "
52 PRINT"YOUR [195][207][205][193][204] DISK:
53 [153]"   (null)(null)ATNSTR$"Q$"LEN*"Q$",8:
54 PRINT"[208]RESS AND HOLD A [[211][200][201][198][212]] KEY."
55 PRINT"[215]HILE HOLDING IT, PRESS THE KEY"
56 PRINT"MARKED [[210][213][206]-[211][212][207][208]], THEN RELEASE BOTH
57 [153]"IT AND THE [(null)LEFT$RIGHT$ASC(null)]CLOSEKEY.  (null)OUR SCREEN
58 PRINT"SHOULD DISPLAY:
59 [153]"   (null)(null)ATNSTR$"Q$"LEN*"Q$",8:(null)(null)ATNSTR$":[153]"   (null)VALATN(null)LENLEFT$RIGHT$(null)CHR$CLOSEASC(null)(null)CLOSELEN*
60 PRINT"   [204][207][193][196][201][206][199]":PRINT"   [210][197][193][196][217].  ([193]BOUT 1.5 MINUTES LATER.)
65 [153]"   (null)(null)(null)":[141]1200
70 [153]"LEN(null)(null)ATN(null)CLOSETHEN DISPLAYS ITS TITLE AND
71 PRINT"COPYRIGHT SCREEN.  [193]T THE BOTTOM, IT
72 [153]"INFORMS YOU THAT YOU HAVE 9902 BYTES
73 PRINT"FREE.  [196]ON'T WORRY ABOUT WHAT A 'BYTE'
74 [153]"IS FOR NOW.  (null)HE IMPORTANT THING IS
75 PRINT"THAT [195][207][205][193][204][160]0.14 IS NOW RUNNING ON YOUR
76 [153]"OWN LENOMMODORE 64!
77 PRINT"   [193]T THIS POINT, [195][207][205][193][204][160]IS IN [195]OMMAND
78 [153]"MODE.  (null)HIS SIMPLY MEANS THAT LEN(null)(null)ATN(null)CLOSEIS
79 PRINT"WAITING FOR YOU TO GIVE IT A TASK TO
80 [153]"DO.  STR$ON'T WORRY, IT WON'T GET BORED
81 PRINT"WAITING!
82 [153]"   LEFT$ERE IS WHAT THE LEN(null)(null)ATN(null)CLOSELENOMMAND (null)ODE
83 PRINT"LOOKS LIKE:
85 [141]1200:X%[178]0:Y%[178]20:[153]"9902 PEEK(null)(null)VAL(null)CLOSEASC(null)VALVAL."
90 [153]"   ATNT THE BOTTOM OF THE SCREEN IS A
91 PRINT"SMALL SIMULATED 'SCREEN'.  [201]T IS SHOW-
93 [153]"ING THE 'PEEKYTES ASCREE' MESSAGE.
94 PRINT"   [193]T THIS POINT, WE ARE IN [195]OMMAND
95 [153]"(null)ODE.  ASCROM HERE, YOU CAN TYPE IN COM-
96 PRINT"MANDS, DIRECT STATEMENTS AND DEFERRED
97 [153]"STATEMENTS.  ATN 'COMMAND' IS PRECISELY
98 PRINT"THAT - A 'COMMAND' TO THE [195][207][205][193][204][160]SYS-
99 [153]"TEM, INSTRUCTING IT TO PERFORM SOME
100 PRINT"DIRECT ACTION.  [195]OMMANDS ARE [206][207][212] PART
101 [153]"OF THE LEN(null)(null)ATN(null)CLOSELANGUAGE ITSELF, THEY ARE
102 PRINT"RATHER SPECIAL INSTRUCTIONS THAT HELP
103 [153]"MANAGE LEN(null)(null)ATN(null) PROGRAMS.
105 GOSUB1200
106 PRINT"   [207]NE SUCH COMMAND IS '[204][201][211][212]', WHICH
107 [153]"TELLS LEN(null)(null)ATN(null) TO LIST THE CURRENT PRO-
108 PRINT"GRAM LINES (IF ANY)[160]ONTO THE SCREEN.
109 [153]"   (null)RY IT NOW!  (null)YPE THE WORD '(null)RIGHT$(null)(null)':
110 GOSUB1160:GOSUB1300
111 X%=.:Y%=22:A$="[204][201][211][212]":GOSUB1600
112 IFETHENA$=MID$(A$,E):E=.:GOSUB1605:GOTO112
113 GOSUB1150:PRINT"[144][146][206]OW YOU CAN PRESS THE [[210][197][212][213][210][206]] KEY:":X%=4:Y%=22
114 GOSUB1500:IFK$<>CHR$(13)THEN114
115 GOSUB1150:PRINT"   [200]MMM . . . DIDN'T DO MUCH, DID IT?
116 [153]"ATNCTUALLY, THAT'S BECAUSE THERE IS NO
117 PRINT"[195][207][205][193][204] PROGRAM IN MEMORY TO [204][201][211][212]!
118 [153]"   RIGHT$N THAT CASE, LET'S PLACE A SHORT
119 PRINT"PROGRAM IN MEMORY, SAY, ONE TO CONVERT
120 [153]"A TEMPERATURE EXPRESSED IN DEGREES
121 PRINT"[198]ARENHEIT INTO A TEMPERATURE EXPRESSED
122 [153]"IN DEGREES LENELSIUS.
125 GOSUB1205
126 PRINT"   [198]OR RIGHT NOW, WE WON'T CONCERN
127 [153]"OURSELVES WITH HOW THE PROGRAM OPER-
128 PRINT"ATES, BUT RATHER HOW TO GET IT INTO
129 [153]"THE 64'S MEMORY.  (null)O START, JUST TYPE
130 PRINT"THE WORD '[193][213][212][207]':
131 [141]1160:[141]1300:X%[178].:Y%[178]24:A$[178]"ATN(null)(null)(null)":[141]1600
132 [139]E[167]A$[178][202](A$,E):E[178].:[141]1605:[137]132
133 [141]1150:[153]"STOPWAIT(null)OW YOU CAN PRESS THE [(null)VAL(null)(null)(null)(null)] KEY:":X%[178]4:Y%[178]24
134 [141]1500:[139]K$[179][177][199](13)[167]134
135 [141]1700:[141]1700:[153]"0010 WAIT";:[141]1035:[141]1150
136 [153]"STOP   (null)HE '0010' IS A 'LINE NUMBER',
137 PRINT"AUTOMATICALLY SUPPLIED FOR YOU BY THE
138 [153]"'ATN(null)(null)(null)'CLOSECOMMAND YOU JUST TYPED.  (null)INE
139 PRINT"NUMBERS ARE USED ONLY FOR EDITING PUR-
140 [153]"POSES IN LEN(null)(null)ATN(null).  (null)OW TYPE THIS LINE:
142 PRINT"   [201][206][208][213][212]"Q$"[196][197][199][210][197][197][211] [198]?[160]"Q$":[198][193][210][197][206][200][197][201][212]
143 [141]1160:X%[178]5:Y%[178]24
144 A$[178]"RIGHT$(null)(null)(null)(null)"[170]Q$[170]"STR$VALCHR$(null)VALVAL(null) ASC? "[170]Q$[170]":ASCATN(null)VAL(null)LEFT$VALRIGHT$(null)":[141]1600
145 [139]E[167]A$[178][202](A$,E):E[178].:[141]1605:[137]145
146 [141]1150:[153]"STOPWAIT(null)OW YOU CAN PRESS THE [(null)VAL(null)(null)(null)(null)] KEY:":X%[178]33:Y%[178]24
147 [141]1500:[139]K$[179][177][199](13)[167]147
148 [141]1700:[153]"0020 WAIT";:[141]1035:[141]1150
150 [141]1400
151 [153]"(null)ERY GOOD!  (null)OW TYPE THIS:"
152 [153]"   LENVAL(null)(null)RIGHT$(null)(null):=(ASCATN(null)VAL(null)LEFT$VALRIGHT$(null)-32)*(5/9)
153 GOSUB1160:GOSUB1300:X%=5:Y%=24
154 A$="[195][197][204][211][201][213][211]:=([198][193][210][197][206][200][197][201][212]-32)*(5/9)":GOSUB1600
155 IFETHENA$=MID$(A$,E):E=.:GOSUB1605:GOTO155
156 GOSUB1150:PRINT"[144][146][206]OW YOU CAN PRESS THE [[210][197][212][213][210][206]] KEY:":X%=34:Y%=24
157 GOSUB1500:IFK$<>CHR$(13)THEN157
158 GOSUB1700:PRINT"0030 [146]";:GOSUB1035:GOSUB1150
160 PRINT"[144][199]REAT!  [206]OW TYPE THIS ONE LAST LINE:
161 [153]"   (null)(null)RIGHT$(null)(null) ASCATN(null)VAL(null)LEFT$VALRIGHT$(null);"Q$"ASC ="Q$";LENVAL(null)(null)RIGHT$(null)(null);"Q$"LEN"Q$
162 [141]1160:X%[178]5:Y%[178]24
163 A$[178]"(null)(null)RIGHT$(null)(null) ASCATN(null)VAL(null)LEFT$VALRIGHT$(null);"[170]Q$[170]"ASC ="[170]Q$[170]";LENVAL(null)(null)RIGHT$(null)(null);"[170]Q$[170]"LEN"[170]Q$:[141]1600
164 [139]E[167]A$[178][202](A$,E):E[178].:[141]1605:[137]164
165 [141]1150:[153]"STOPWAIT(null)OW YOU CAN PRESS THE [(null)VAL(null)(null)(null)(null)] KEY:":X%[178]38:Y%[178]24
166 [141]1500:[139]K$[179][177][199](13)[167]166
167 [141]1700:[153]"0040 WAIT";:[141]1035:[141]1150
170 [153]"STOP(null)HE PROGRAM IS NOW FINISHED.  RIGHT$ KNOW
171 PRINT"THAT, AND [217][207][213][160]KNOW THAT, BUT THE [193][213][212][207]
172 [153]"COMMAND DOESN'T KNOW THAT, SO IT JUST
173 PRINT"GAVE US ANOTHER LINE NUMBER!  [202]UST
174 [153]"PRESS [(null)VAL(null)(null)(null)(null)] TO CANCEL ATN(null)(null)(null):":X%[178]5:Y%[178]24
175 [141]1500:[139]K$[179][177][199](13)[167]175
176 [141]1700:[141]1035:[141]1150:[141]1400
180 [153]"   LENONGRATULATIONS!  (null)OU HAVE JUST
181 PRINT"ENTERED YOUR FIRST [195][207][205][193][204] 0.14 PROGRAM!
182 [153]"(null)OW THAT WE HAVE A PROGRAM IN MEMORY,
183 PRINT"THE [204][201][211][212][160]COMMAND HAS SOMETHING TO WORK
184 [153]"WITH!  (null)YPE '(null)RIGHT$(null)(null)'CLOSETHEN PRESS THE
185 PRINT"[[210][197][212][213][210][206]] KEY:
186 [141]1160:[141]1300:X%[178].:Y%[178]24:A$[178]"(null)RIGHT$(null)(null)":[141]1600
187 [139]E[167]A$[178][202](A$,E):E[178].:[141]1605:[137]187
188 [141]1150:X%[178]4:Y%[178]24
189 [141]1500:[139]K$[179][177][199](13)[167]189
190 [141]1700:[141]1110
191 [153]"0010 RIGHT$(null)(null)(null)(null) "Q$"STR$VALCHR$(null)VALVAL(null) ASC? "Q$": ASCATN(null)VAL(null)LEFT$VALRIGHT$(null)";:[141]1700
192 [153]"0020 LENVAL(null)(null)RIGHT$(null)(null):=(ASCATN(null)VAL(null)LEFT$VALRIGHT$(null)-32)*(5/9)";:[141]1700
193 [153]"0030 (null)(null)RIGHT$(null)(null) ASCATN(null)VAL(null)LEFT$VALRIGHT$(null);"Q$"ASC ="Q$";LENVAL(null)(null)RIGHT$(null)(null);"Q$"LEN"Q$;:[141]1700:[141]1700
195 [141]1035:[141]1150:[153]"STOP   (null)HERE!  (null)HE (null)RIGHT$(null)(null) COMMAND PRODUCED
196 PRINT"A 'LISTING' OF OUR PROGRAM.  [194]UT WE
197 [153]"ALREADY KNOW WHAT IT LOOKS LIKE.  (null)HAT
198 PRINT"WE [215][193][206][212] TO KNOW IS DOES IT [215][207][210][203]?  [212]O
199 [153]"FIND OUT, ALL WE HAVE TO DO IS USE A
200 PRINT"NEW COMMAND CALLED '[210][213][206]'.  [212]YPE THE
201 [153]"'(null)(null)(null)'CLOSECOMMAND:
202 GOSUB1160:X%=.:Y%=24:A$="[210][213][206]":GOSUB1600
203 IFETHENA$=MID$(A$,E):E=.:GOSUB1605:GOTO203
204 X%=3:Y%=24
205 GOSUB1500:IFK$<>CHR$(13)THEN205
206 GOSUB1700:PRINT"[196][197][199][210][197][197][211] [198]? ";:GOSUB1035:GOSUB1150:GOSUB1400
210 PRINT"[146]   [212]HE PROGRAM IS ASKING FOR A TEM-
211 [153]"PERATURE IN DEGREES ASCARENHEIT (ASC).  (null)O
212 PRINT"TEST THE PROGRAM, LET'S TRY ONE WE ALL
213 [153]"KNOW, SAY, THE BOILING POINT OF WATER
214 PRINT"([200]2[207]).  [212]YPE '212':
215 [141]1300:[141]1160:X%[178]11:Y%[178]24:A$[178]"212":[141]1600
216 [139]E[167]A$[178][202](A$,E):E[178].:[141]1605:[137]216
217 X%[178]14:Y%[178]24
218 [141]1500:[139]K$[179][177][199](13)[167]218
219 [141]1700:[153]"212 ASC = 100 LEN";:[141]1700:[141]1700
220 [141]1035:[141]1150:[153]"STOPWAIT   (null)O 212 DEGREES ASC = 100 DEGREES LEN.
221 PRINT"[206]OT SURPRISING, REALLY, WHEN YOU RE-
222 [153]"CALL THAT (null)R. LENELSIUS DESIGNED HIS
223 PRINT"[205]ETRIC TEMPERATURE SCALE AROUND THE
224 [153]"(SEA LEVEL) FREEZING POINT (32 ASC, 0 LEN)
225 PRINT"AND BOILING POINT (212 [198], 100 [195]) OF
226 [153]"WATER!
227 PRINT"   [194]UT THIS IS A [195][207][205][193][204] TUTORIAL, NOT A
228 [153]"LEFT$ISTORY OF (null)EASUREMENTS LENLASS!  (null)ET'S
230 GOSUB1205
231 PRINT"RE-[210][213][206] THIS PROGRAM, AND THIS TIME
232 [153]"FIND OUT THE LENELSIUS VERSION OF NORMAL
233 PRINT"HUMAN BODY TEMPERATURE (98.6 [198]).  [211]EE
234 [153]"IF YOU CAN DO IT WITHOUT ME TELLING
235 PRINT"YOU WHAT TO TYPE!  [199]O AHEAD:
236 [141]1300:[141]1160:X%[178].:Y%[178]24:A$[178]"(null)(null)(null)":[141]1600
237 [139]E[167]A$[178][202](A$,E):E[178].:[141]1605:[137]237
238 X%[178]3:Y%[178]24
239 [141]1500:[139]K$[179][177][199](13)[167]239
240 [141]1700:[153]"STR$VALCHR$(null)VALVAL(null) ASC? ";
241 X%[178]11:Y%[178]24:A$[178]"98.6":[141]1600
242 [139]E[167]A$[178][202](A$,E):E[178].:[141]1605:[137]242
243 X%[178]15:Y%[178]24
244 [141]1500:[139]K$[179][177][199](13)[167]244
245 [141]1700:[153]"98.6 ASC = 37 LEN";:[141]1700:[141]1700
246 [141]1035:[141]1150:[153]"STOPWAIT   (null)O NORMAL HUMAN BODY TEMPERATURE
247 PRINT"IS 37 DEGREES [195]ELSIUS!
248 [153]"   RIGHT$ THINK YOU HAVE GOT THE HANG OF IT
249 PRINT"SO FAR!  [204]ET'S REVIEW WHAT ALL WE HAVE
250 [153]"LEARNED IN THIS INSTALLMENT OF THE
251 PRINT"[204]OADSTAR [195][207][205][193][204][160][212]UTORIAL:
255 [141]1205
256 [153]"LEFT$ERE IS A BRIEF, MULTIPLE-CHOICE
257 PRINT"QUIZ TO SEE HOW WELL [201] TAUGHT YOU THE
258 [153]"DESIRED CONCEPTS.  (null)O SELECT AN ANSWER
259 PRINT"JUST PRESS THE  REVERSED [146] KEY:
260 [153]"1.  LEN(null)(null)ATN(null) 0.14 IS BUILT INTO THE 64.
261 PRINT"    [212][146]RUE OR [198][146]ALSE?
262 [141]1300:SC%[178].:A$[178]"ASC":W1$[178]"(null)":W2$[178]"(null)":W3$[178]"(null)":[141]1800
263 [153]"LEN(null)(null)ATN(null)CLOSE0.14 MUST BE (null)(null)ATNSTR$ED
264 PRINT"INTO THE 64'S MEMORY FROM DISK!
265 [141]1205
266 [153]"2.  ATNFTER LEN(null)(null)ATN(null)CLOSEHAS TOLD YOU THAT YOU
267 PRINT"    HAVE '9902 BYTES FREE.', YOU ARE
268 [153]"    IN LEN(null)(null)ATN(null)'S 'LENOMMAND (null)ODE'.
269 PRINT"    [212][146]RUE OR [198][146]ALSE?
270 [141]1300:A$[178]"(null)":W1$[178]"ASC":W2$[178]"ASC":W3$[178]"ASC":[141]1800
271 [153]"LEN(null)(null)ATN(null)CLOSESTARTS UP IN THE
272 PRINT"'[195]OMMAND [205]ODE', WHICH IS THE MODE THAT
273 [153]"ALLOWS COMMANDS AND DIRECT STATEMENTS
274 PRINT"TO BE ISSUED.  [207]THER MODES INCLUDE THE
275 [153]"'ATN(null)(null)(null)' AND '(null)(null)(null)' MODES, BOTH OF WHICH
276 PRINT"WE HAVE GLIMPSED THIS ISSUE.
280 [141]1205
281 [153]"3.  (null)HE 'LINE NUMBERS' THAT THE ATN(null)(null)(null)
282 PRINT"    COMMAND [193][213][212][207]MATICALLY SUPPLIES ARE
283 [153]"    USED:
284 PRINT"    [193][146].  [193]S REFERENCES FOR [199][207][212][207].
285 [153]"    PEEKWAIT.  ATNS REFERENCES FOR EDITING.
286 PRINT"    [195][146].  [194]OTH OF THE ABOVE.
287 [153]"    STR$WAIT.  (null)ONE OF THE ABOVE.
288 GOSUB1300:A$="[194]":W1$="[193]":W2$="[195]":W3$="[196]":GOSUB1800
289 PRINT"[195][207][205][193][204][160]LINE NUMBERS ARE
290 [153]"USED (null)(null)(null)(null)CLOSEFOR EDITING PURPOSES!  (null)HEY
291 PRINT"ARE NOT, STRICTLY SPEAKING, EVEN PART
292 [153]"OF THE LANGUAGE!  (null)HAT IS WHY MOST
293 PRINT"[195][207][205][193][204][160]PROGRAMS ARE LISTED WITHOUT THEM
294 [153]"IN ISSUES OF 'LEN(null)(null)ATN(null)CLOSE(null)ODAY'!
295 GOSUB1205
296 PRINT"4.  [201]F, WHEN YOU TYPE THE '[204][201][211][212]' COM-
297 [153]"    MAND AND PRESS [(null)VAL(null)(null)(null)(null)], NOTHING
298 PRINT"    SEEMS TO HAPPEN; IT IS BECAUSE:
299 [153]"    ATNWAIT.  '(null)RIGHT$(null)(null)' IS NOT A VALID LEN(null)(null)ATN(null)
300 PRINT"        COMMAND.
301 [153]"    PEEKWAIT.  LEN(null)(null)ATN(null)CLOSEISN'T WORKING RIGHT.
302 PRINT"    [195][146].  [217]OU HAVE NO [195][207][205][193][204] PROGRAM IN
303 [153]"        MEMORY FOR '(null)RIGHT$(null)(null)' TO (null)RIGHT$(null)(null)!
304 PRINT"    [196][146].  [206]ONE OF THE ABOVE.
305 [141]1300:A$[178]"LEN":W2$[178]"PEEK":[141]1800
306 [153]"'(null)RIGHT$(null)(null)' DISPLAYS A LISTING
307 PRINT"OF THE PROGRAM IN MEMORY.  [201]F THERE IS
308 [153]"NO PROGRAM, THE LISTING IS BLANK!
310 GOSUB1205
311 PRINT"5.  [207]NCE A [195][207][205][193][204] PROGRAM HAS BEEN
312 [153]"    ENTERED INTO MEMORY, TO GET IT TO
313 PRINT"    BEGIN TO EXECUTE, YOU MUST USE...
314 [153]"    ATNWAIT.  THE '(null)(null)(null)'CLOSECOMMAND.
315 PRINT"    [194][146].  THE '[193][213][212][207]'[160]COMMAND.
316 [153]"    LENWAIT.  THE '(null)RIGHT$(null)(null)' COMMAND.
317 PRINT"    [196][146].  [194]LACK [205]AGIC.
318 [141]1300:A$[178]"ATN":W1$[178]"PEEK":W2$[178]"LEN":[141]1800
319 [153]"'(null)(null)(null)' STARTS THE EXECUTION
320 PRINT"OF THE PROGRAM IN MEMORY.  '[193][213][212][207]' IS
321 [153]"USED FOR ENTERING THE PROGRAM INTO
322 PRINT"MEMORY, AND '[204][201][211][212]' IS USED TO DISPLAY
323 [153]"A (null)RIGHT$(null)(null)ING OF THE PROGRAM!
325 GOSUB1205
326 PRINT"6.  [194][193][211][201][195][160]RESEMBLES THE MODERN 'PRO-
327 [153]"    FESSIONAL' STRUCTURED LANGUAGES
328 PRINT"    SUCH AS [208]ASCAL OR [195] OR [205]ODULA 2 OR
329 [153]"    ATNDA MORE THAN LEN(null)(null)ATN(null) DOES.
330 PRINT"    [212][146]RUE OR [198][146]ALSE?
331 [141]1300:A$[178]"ASC":W1$[178]"(null)":W2$[178]"(null)":W3$[178]"(null)":[141]1800
332 [153]"PEEKECAUSE LEN(null)(null)ATN(null) COMBINES THE
333 PRINT"STRUCTURE OF THE SO-CALLED 'MODERN'
334 [153]"LANGUAGES WITH THE FRIENDLINESS AND
335 PRINT"INTERACTIVITY OF [194][193][211][201][195], IT IS BECOMING
336 [153]"(null)VAL(null)(null)CLOSEPOPULAR AMONG COMPUTER SCIENCE
337 PRINT"EDUCATORS AS A 'FIRST' COMPUTER LAN-
338 [153]"GUAGE FOR BEGINNERS!
340 GOSUB1205
350 PRINT"   [212]HAT IS ALL FOR THIS ISSUE.  [207]F THE
351 [153]"6 QUESTIONS IN OUR LITTLE QUIZ, YOU
352 PRINT"ANSWERED"SC%"CORRECTLY.
353 [139]SC%[179]6[167]360
354 [153]"   RIGHT$CLOSEKNOW A PERFECT SCORE WHEN RIGHT$ SEE
355 PRINT"ONE!  [217]OU ARE DEFINITELY READY FOR
356 [153]"NEXT ISSUE'S LESSON!":[137]400
360 [139]SC%[179]4[167]370
361 [153]"   (null)OU DID RATHER WELL!  RIGHT$ SUGGEST YOU
362 PRINT"OBTAIN A COPY OF [195][207][205][193][204] 0.14 (IF YOU
363 [153]"DO NOT HAVE ONE ALREADY) AND PRACTICE
364 PRINT"THE CONCEPTS TAUGHT THIS LESSON.  [217]OU
365 [153]"WILL THEN BE READY FOR NEXT ISSUE'S
366 PRINT"LESSON.":GOTO400
370 PRINT"   [217]OU DO NOT SEEM TO HAVE CAUGHT ON
371 [153]"TO MANY OF THE CONCEPTS PRESENTED THIS
372 PRINT"LESSON.  [210]E-TAKE THIS TUTORIAL, THEN":GOTO362
400 PRINT"[208]RESS SPACE BAR TO RETURN TO [204]OADSTAR!":GOSUB1300:POKE198,.:WAIT198,1
401 POKE198,.:GOSUB1400:POKEV+33,.:PRINT"[147][144]LOAD"Q$"HELLO"Q$",8":PRINT"RUN"
402 PRINT"[210]ETURNING TO MAIN MENU . . .[144]";
403 POKE927,0: REM _ MENU.SP1
404 POKE631,13:POKE632,13:POKE198,2:END:
999 END:
1000 POKEV+33,1:PRINT"[147]          [195][207][205][193][204][160]0.14 [212]UTORIAL          "
1005 PRINT"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:FORI=1TO16
1010 PRINT"[221]                                      [221]";:NEXT:
1015 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
1020 X%[178].:Y%[178]19:[141]1100:[129]I[178]1[164]5:[153]"                                        ";
1025 :[130]:[141]1050
1030 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]:
1035 [151]1020,2:[151]1021,17:[151]1022,1:[151]1023,38:[142]:
1050 X%[178].:Y%[178]24:[141]1110:[153]"                                       WAIT";
1055 [151]2023,160:[151]56295,6:[142]:
1100 [141]1160
1110 [151]212,.:[153][200]("",Y%[170]1)[163]X%);:[142]:
1150 X%[178]SX%:Y%[178]SY%:[137]1110
1160 SX%[178][194](211):SY%[178][194](214):[142]
1200 [141]1300
1205 X%[178]3:Y%[178]19:[141]1110:[153]"FOR  (null)RESS SPACE BAR FOR NEXT PAGE.  "
1210 [151]198,.:[146]198,1:[151]198,.
1215 X%[178]3:Y%[178]19:[141]1110:[153]"                                  "
1220 [137]1400
1300 [151]646,15:[146]R,C:[146]R,C:[158]CL:[151]646,12:[146]R,C:[146]R,C:[158]CL
1305 [151]646,11:[146]R,C:[146]R,C:[158]CL:[151]646,.:[146]R,C:[146]R,C:[158]CL:[142]:
1400 [151]646,11:[146]R,C:[146]R,C:[158]CL:[151]646,12:[146]R,C:[146]R,C:[158]CL
1405 [151]646,15:[146]R,C:[146]R,C:[158]CL:[146]R,C:[146]R,C:[158]WI:[142]:
1500 [141]1110:F%[178][171]1:L%[178][194](209)[170]256[172][194](210)[170][194](211):C%[178][194](L%)
1505 [151]L%,[171]F%[172]([194](L%)[175]127)[171]([168]F%)[172]([194](L%)[176]128):F%[178][168]F%
1510 [129]F[178]1[164]48:[161]K$:[139]K$[178]""[167][130]:[137]1505
1512 [139]K$[178]"CLOSE"[176]K$[178][199](148)[167]K$[178]" ":[143] SHIFT-SPACE TO SPACE!
1515 F[178]256:[130]:[151]L%,C%:[139]K$[177]"@"[175]K$[179]"["[167]K$[178][199]([198](K$)[170]128)
1520 [142]:
1600 AX%[178]X%:AY%[178]Y%
1605 [129]A[178]1[164][195](A$)
1606 [141]1500:[139]K$[178][202](A$,A,1)[167][153]""K$;:X%[178]X%[170]1:[130]:[142]:
1607 [139]K$[178][199](13)[167]1606
1610 E[178]A:E$[178][202](A$,E,1):A[178]256:[130]:
1615 [153]"";:[151]216,1:[153]K$;:[151]212,.:[141]1150
1620 [151]V[170]32,8:[153]"FOR (null)(null)(null)(null)!  (null)OU DIDN'T PRESS THE WAIT "E$;:[151]212,0
1621 [151]V[170]32,8:[153]"  KEY! "
1622 [141]1900:[141]1150:[151]V[170]32,5
1625 [153]" (null)OW PRESS THE [RIGHT$(null)(null)(null)-STR$VAL(null)] KEY ONCE: WAIT  ":X%[178]AX%[170]E:Y%[178]AY%
1630 [141]1500:[139]K$[179][177]""[167]1630
1632 [153]"CMD CMD";
1635 [141]1150:[153]" (null)OW FINISH TYPING! WAIT                  ":[151]V[170]32,14
1640 AX%[178]AX%[170]E[171]1:X%[178]AX%:Y%[178]AY%:[142]:
1700 [151]1020,19:[151]1021,24:[151]1022,.:[151]1023,39
1705 [158]SU:[141]1050:X%[178].:Y%[178]24:[137]1110:
1800 [141]1160
1805 X%[178].:Y%[178]24:[141]1500:[139]K$[179][177]A$[175]K$[179][177]W1$[175]K$[179][177]W2$[175]K$[179][177]W3$[167]1805
1810 [141]1035:[141]1150:[153]
1815 [139]K$[178]A$[167][153]" LEN(null)(null)(null)VALLEN(null)! WAITSTOP  ";:SC%[178]SC%[170]1:[142]:
1820 [153]" (null)ORRY. WAITSTOP  ";:[142]:
1900 [129]P[178]1[164]2000:[130]:[142]: